home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db2ios.arc / SHIPPED.SIG < prev    next >
Text File  |  1983-01-04  |  2KB  |  80 lines
  1. * SHIPPED. SIG  08/18/83
  2. * shipping report program
  3. * add your own printer codes
  4. ERASE
  5. * get a starting  point
  6. STORE DATE() TO stdat
  7. @ 10,12 SAY 'Shipments after what date are to be listed'
  8. @ 10,57 GET stdat PICTURE '99/99/99'
  9. READ
  10. * store date as YYMMDD
  11. STORE $(stdat,7,2)+$(stdat,1,2)+$(stdat,4,2) TO stdate
  12. GOTO TOP
  13. STORE 0 TO pageno
  14. STORE t TO more
  15. STORE 0 TO TOTAL
  16. STORE 0 TO CAT
  17. STORE 0 TO AMOUNT
  18. SET MARGIN TO 0
  19. DO WHILE more
  20. STORE pageno + 1 TO pageno
  21. STORE 7 TO lineno
  22. ERASE
  23. EJECT
  24. ? ' '
  25. ? '======================SIG/M SHIPPING REPORT ========================'
  26. ? ' '
  27. ? '           ' + date() + '                       PAGE: ' + str(pageno,3)
  28. ? ' '
  29. ? '      ORDERS WHERE SHIPMENTS AFTER ' + stdat
  30. ? ' '
  31. ? '  CAT LAST NAME            ENTERED      SHIPPED    BACKORDER SHIPPED   AMOUNT'
  32. ? ' '
  33. DO WHILE lineno <55
  34. STORE $(shipped,7,2)+$(shipped,1,2)+$(shipped,4,2) TO stdate1
  35. STORE $(bo:ship,7,2)+$(bo:ship,1,2)+$(bo:ship,4,2) TO stdate2
  36. STORE $(bo2:ship,7,2)+$(bo2:ship,1,2)+$(bo2:ship,4,2) TO stdate3
  37. IF stdate2 >=stdate1
  38. STORE stdate2 TO stdate4
  39. ELSE
  40. store stdate1 TO stdate4
  41. ENDIF
  42. IF stdate3 >=stdate4
  43. STORE stdate3 TO stdate5
  44. ELSE
  45. STORE stdate4 TO stdate5
  46. ENDIF
  47. IF stdate5 >= stdate
  48. STORE total + 1 TO TOTAL
  49. STORE amount + amt TO amount
  50. ? '   ' + catalog + '  '+ lname +' ' + entered + '     ';
  51. + shipped +'     ' + bo:ship + bo2:ship +' '+ STR(amt,7,2)
  52. IF catalog = 'N'
  53. STORE cat + 1 TO cat
  54. ENDIF catalog
  55. STORE lineno + 1 to lineno
  56. SKIP
  57. IF EOF
  58. STORE 60 TO lineno
  59. STORE f TO more
  60. ENDIF EOF
  61. ELSE
  62. SKIP
  63. IF EOF
  64. STORE 60 TO lineno
  65. STORE f TO more
  66. ENDIF eof
  67. ENDIF STDATE
  68. ENDDO while lineno > 55
  69. ENDDO more
  70. ? '--------------------------------------------------------------------------'
  71. ? ' '
  72. ? '      TOTALS:         NUMBER OF SHIPMENTS: ' + STR(total,4,0)
  73. ? '                DOLLAR AMOUNT OF ORDERS WHERE SHIPMENTS: ' + STR(amount,8,2)
  74. ? '              NUMBER OF CATALOGS ORDERS WHERE SHIPMENTS: ' + STR(total-cat,4,0)
  75. EJECT
  76. SET PRINT OFF
  77. RELEASE ALL
  78. STORE t TO more
  79. STORE t TO first
  80.